SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant\\k=2"];

$k=2; 
ℏ=γ=1;
$QZipFail=True;
tab310=Table[
{n,k}=List@@K;
fname="Data/"<>ToString[n]<>"_"<>ToString[k]<>".m";
Switch[FileType[fname],
None,z=Echo@(K->Timing[𝔼4@Z@K]);Put[z, fname],
File,z=Echo@Get[fname]
];
z,
{K,AllKnots[{3,10}]}
]